<%

Function usuario_existe(id)
	
	DIM rs

	str = "Select id FROM usuarios where id="&id
   	Set rs = conexao_geral.Execute(str)	

		if not rs.eof then
				
				usuario_existe = TRUE
		
		Else
		
				usuario_existe = FALSE
		
		End If

End Function

%>
